home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #6 / 1999 CD 6 (Red).iso / Strategy / warzone / disk1 / data1.cab / Program_Executable_Files / script / fastplay / start.slo < prev    next >
Encoding:
Text File  |  1998-12-03  |  655 b   |  25 lines
  1. //Start.slo
  2. //used to setup all the starting tech and power for player starting game
  3.  
  4. public        int        player, startPow;
  5. public        int        numTechs;
  6. public        RESEARCHSTAT    startTech[4];
  7. public        WEAPON        mg;                //req'd for start level
  8. private        int        count, count2;
  9.  
  10. /* Initialisation */
  11. event    start(CALL_GAMEINIT)
  12. {
  13. //make MG available to player!
  14.     //makeComponentAvailable(mg, player);        //needs to be done this way so doesn't enable rest of tree!
  15. //set technology for player
  16.     count2 = 0;
  17.     while (count2 < numTechs)
  18.     {
  19.         completeResearch(startTech[count2], player);
  20.         count2 = count2 + 1;
  21.     }
  22. //set power level
  23.     setPowerLevel(startPow, player);
  24. }
  25.